home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / tbbs.slt < prev    next >
Encoding:
Text File  |  1991-08-04  |  1.6 KB  |  55 lines
  1. //    Sample script file to log-onto an TBBS based system.
  2. //
  3. //    note: _entry_pass is a system variable into which the dialing routines
  4. //          put whatever is in the password field of the dialing directory
  5. //          entry which was connected to.
  6. //
  7. //    note: for TBBS boards you must log on with VT102 emulation or else
  8. //          you will have that CLUB (^E) popping up after the boards First
  9. //          and Last name requests. Also turn OFF Compuserve Quick B
  10. //          Transfers in the Terminal Options section of Config (ALT-O).
  11.  
  12. str auser_name[] = "Colin";          // put your first name here
  13. str buser_name[] = "Sampaleanu";     // put your last name here
  14.  
  15. main()
  16.  
  17. {
  18.  alarm(1);
  19.  
  20.  if (not _entry_pass)                        // no pass, so didn't recog. board
  21.   {
  22.    prints ("Sorry, I don't know the password for this BBS!");
  23.    return;
  24.   }
  25.  
  26.  if (not waitfor("First Name?", 180))             //
  27.   {
  28.    prints("Log-on failed!");
  29.    return;                                   // ...abort
  30.   }
  31.  
  32.  cputs(auser_name);                           // send name
  33.  cputs("^M");
  34.  
  35.  if (not waitfor("Last Name?", 180))             //
  36.   {
  37.    prints("Log-on failed!");
  38.    return;                                   // ...abort
  39.   }
  40.  
  41.  cputs(buser_name);                           // send name
  42.  cputs("^M");
  43.  cputs("y");
  44.  
  45.  if (not waitfor("Password:", 20))           // if no prompt for password
  46.   {
  47.    prints("Log-on failed!");
  48.    return;                                   // ...abort
  49.   }
  50.  
  51.  cputs(_entry_pass);                         // send pass
  52.  cputs("^M");
  53.  
  54. }
  55.